library(ShortRead)
reads <- readFastq("../Cornell_Run_1/CJB4.fq")
reads <- sample(reads,10000000)
writeFastq(reads, "./CJB4.fq")

reads <- readFastq("../Cornell_Run_1/CJB5-2.fq")
reads <- sample(reads,10000000)
writeFastq(reads, "./CJB5-2.fastq")

reads <- readFastq("../Cornell_Run_1/CJB7.fq")
reads <- sample(reads,10000000)
writeFastq(reads, "./CJB7.fastq")

reads <- readFastq("../Cornell_Run_1/JEL289.fq")
reads <- sample(reads,10000000)
writeFastq(reads, "./JEL289.fq")

reads <- readFastq("../Cornell_Run_1/JEL627.fq")
reads <- sample(reads,10000000)
writeFastq(reads, "./JEL627.fq")

reads <- readFastq("../Cornell_Run_1/SRS812.fq")
reads <- sample(reads,10000000)
writeFastq(reads, "./SRS812.fq")

reads <- readFastq("../Cornell_Run_1/TST75.fq")
reads <- sample(reads,10000000)
writeFastq(reads, "./TST75.fq")
